home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 5 / Amiga Tools 5.iso / tools / dfÜ / bbs / aptbbs1 / apt / rexx / buttoncompile.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1995-10-10  |  17.4 KB  |  408 lines
  1. /* buttoncompile.rexx
  2. **
  3. ** $VER: buttoncompile 0.0.1 (19.8.93)
  4. **
  5. ** ARexx program for controlling ApT-BBS by ApT-Design.
  6. **
  7. ** Copyright © 1993 ApT-Design All Rights Reserved
  8. **
  9. ** Compiles/Creates Button data files for use with ApT-BBS! System.
  10. **
  11. ** This file should contain all of your related menu information for
  12. ** use with the button system. It should then be run via the
  13. **
  14. ** 'rx ButtonCompile' command to which it will save out the files in
  15. ** the specified directories.
  16. **
  17. ** NOTES: Requires the 'tplates:button' directory to be created. This
  18. ** will be used to save the various '.bank' files to.
  19. **
  20. */
  21.  
  22. CR = 'A'x
  23. parse arg lineno
  24.  
  25. options results
  26. portname = 'APTMANAGER'
  27. address value portname
  28.  
  29. say CR CR "Button Compiler initiated..." CR
  30.  
  31. /*
  32. ** Some repeated 'defines', saves having larger than life
  33. ** Argument lines..
  34. **
  35. **                 UnHighlighted  Highlighted
  36. ** ------------------------------------------
  37. ** Button Background = BLACK        WHITE
  38. ** Button Text       = WHITE        BLUE
  39. **/
  40.  
  41. COLOUR0 = 'BCOL_DEF=0 STYLE_DEF=" " BCOL_HI=0 STYLE_HI=">"'
  42. COLOUR1 = 'BCOL_DEF=0 STYLE_DEF=" " BCOL_HI=7 STYLE_HI=">"'
  43. COLOUR2 = 'BCOL_DEF=0 STYLE_DEF=" " BCOL_HI=7 STYLE_HI=">"'
  44. COLOUR3 = 'BCOL_DEF=0 STYLE_DEF=" " BCOL_HI=7 STYLE_HI=">"'
  45. COLOUR4 = 'BCOL_DEF=0 STYLE_DEF=" " BCOL_HI=7 STYLE_HI=">"'
  46. COLOUR5 = 'BCOL_DEF=0 STYLE_DEF=" " BCOL_HI=7 STYLE_HI=">"'
  47. COLOUR6 = 'BCOL_DEF=0 STYLE_DEF=" " BCOL_HI=7 STYLE_HI=">"'
  48. COLOUR7 = 'BCOL_DEF=0 STYLE_DEF=" " BCOL_HI=7 STYLE_HI=">"'
  49.  
  50. /*
  51. ** Terminate xy menu
  52. **
  53. **/
  54.  
  55. B0 = " N   -  NO"
  56. B1 = " Y   -  YES"
  57. TX=63 ; TY=8
  58.  
  59. 'BUTTONDATA' 'CLEAR'
  60. 'BUTTONDATA' 'BUTTONTEXT="'B0'"' COLOUR7 'WIDTH=13 XPOS="'TX+1'" YPOS="'TY+3'" UP=1 DOWN=1 LEFT=0 RIGHT=0'
  61. 'BUTTONDATA' 'BUTTONTEXT="'B1'"' COLOUR7 'WIDTH=13 XPOS="'TX+1'" YPOS="'TY+4'" UP=0 DOWN=0 LEFT=1 RIGHT=1'
  62. 'BUTTONDATA' 'SAVE="tplates:button/terminate'TX''TY'.bank"'
  63. 'BUTTONDATA' 'CLEAR'
  64.  
  65. /*
  66. ** Terminate xy menu
  67. **
  68. **/
  69.  
  70. B0 = " N   -  NO"
  71. B1 = " Y   -  YES"
  72. TX=2 ; TY=2
  73.  
  74. 'BUTTONDATA' 'CLEAR'
  75. 'BUTTONDATA' 'BUTTONTEXT="'B0'"' COLOUR7 'WIDTH=13 XPOS="'TX+1'" YPOS="'TY+3'" UP=1 DOWN=1 LEFT=0 RIGHT=0'
  76. 'BUTTONDATA' 'BUTTONTEXT="'B1'"' COLOUR7 'WIDTH=13 XPOS="'TX+1'" YPOS="'TY+4'" UP=0 DOWN=0 LEFT=1 RIGHT=1'
  77. 'BUTTONDATA' 'SAVE="tplates:button/terminate'TX''TY'.bank"'
  78. 'BUTTONDATA' 'CLEAR'
  79.  
  80. /*
  81. ** Terminate xy menu
  82. **
  83. **/
  84.  
  85. B0 = " N   -  NO"
  86. B1 = " Y   -  YES"
  87. TX=30 ; TY=14
  88.  
  89. 'BUTTONDATA' 'CLEAR'
  90. 'BUTTONDATA' 'BUTTONTEXT="'B0'"' COLOUR7 'WIDTH=13 XPOS="'TX+1'" YPOS="'TY+3'" UP=1 DOWN=1 LEFT=0 RIGHT=0'
  91. 'BUTTONDATA' 'BUTTONTEXT="'B1'"' COLOUR7 'WIDTH=13 XPOS="'TX+1'" YPOS="'TY+4'" UP=0 DOWN=0 LEFT=1 RIGHT=1'
  92. 'BUTTONDATA' 'SAVE="tplates:button/terminate'TX''TY'.bank"'
  93. 'BUTTONDATA' 'CLEAR'
  94.  
  95. /*
  96. ** Terminate xy menu
  97. **
  98. **/
  99.  
  100. B0 = " N   -  NO"
  101. B1 = " Y   -  YES"
  102. TX=32 ; TY=15
  103.  
  104. 'BUTTONDATA' 'CLEAR'
  105. 'BUTTONDATA' 'BUTTONTEXT="'B0'"' COLOUR7 'WIDTH=13 XPOS="'TX+1'" YPOS="'TY+3'" UP=1 DOWN=1 LEFT=0 RIGHT=0'
  106. 'BUTTONDATA' 'BUTTONTEXT="'B1'"' COLOUR7 'WIDTH=13 XPOS="'TX+1'" YPOS="'TY+4'" UP=0 DOWN=0 LEFT=1 RIGHT=1'
  107. 'BUTTONDATA' 'SAVE="tplates:button/terminate'TX''TY'.bank"'
  108. 'BUTTONDATA' 'CLEAR'
  109.  
  110. /*
  111. ** The main menu
  112. **
  113. ** Setup the actual contents of the buttons text. All
  114. ** within the correct order.. working from button 0,..1,..5 etc.
  115. **/
  116.  
  117. B0 = " F   -   File Conferences"
  118. B1 = " M   -   Message Conferences"
  119. B2 = " C   -   Call For System Operator"
  120. B3 = " L   -   Leave Feedback to Operator"
  121. B4 = " P   -   Goto Edit Preferences Menu"
  122. B5 = " D   -   Entertainment Areas"
  123. B6 = " X   -   Aminet CDROM Files"
  124. B7 = " W   -   Waiting Mail?"
  125. B8 = " G   -   Terminate Connection"
  126. B9 = " B   -   ApT-BBS! Software."
  127. B10 = " 1   -   Amiga Files & Mail"
  128. B11 = " 2   -   IBM Files & Mail"
  129. B12 = " 3   -   QWK Off-Line Mail Bundler"
  130. B13 = " 4   -   Global New File Scan"
  131. B14 = " 5   -   ALL Picture Areas"
  132.  
  133. 'BUTTONDATA' 'CLEAR'
  134. 'BUTTONDATA' 'BUTTONTEXT="'B0'"' COLOUR7 'WIDTH=38 XPOS=21 YPOS=5 UP=14 DOWN=1 LEFT=1 RIGHT=14'
  135. 'BUTTONDATA' 'BUTTONTEXT="'B1'"' COLOUR7 'WIDTH=38 XPOS=21 YPOS=6 UP=0 DOWN=2 LEFT=2 RIGHT=0'
  136. 'BUTTONDATA' 'BUTTONTEXT="'B2'"' COLOUR7 'WIDTH=38 XPOS=21 YPOS=7 UP=1 DOWN=3 LEFT=3 RIGHT=1'
  137. 'BUTTONDATA' 'BUTTONTEXT="'B3'"' COLOUR7 'WIDTH=38 XPOS=21 YPOS=8 UP=2 DOWN=4 LEFT=4 RIGHT=2'
  138. 'BUTTONDATA' 'BUTTONTEXT="'B4'"' COLOUR7 'WIDTH=38 XPOS=21 YPOS=9 UP=3 DOWN=5 LEFT=5 RIGHT=3'
  139. 'BUTTONDATA' 'BUTTONTEXT="'B5'"' COLOUR7 'WIDTH=38 XPOS=21 YPOS=10 UP=4 DOWN=6 LEFT=6 RIGHT=4'
  140. 'BUTTONDATA' 'BUTTONTEXT="'B6'"' COLOUR7 'WIDTH=38 XPOS=21 YPOS=11 UP=5 DOWN=7 LEFT=7 RIGHT=5'
  141. 'BUTTONDATA' 'BUTTONTEXT="'B7'"' COLOUR2 'WIDTH=38 XPOS=21 YPOS=12 UP=6 DOWN=8 LEFT=8 RIGHT=6'
  142. 'BUTTONDATA' 'BUTTONTEXT="'B8'"' COLOUR1 'WIDTH=38 XPOS=21 YPOS=13 UP=7 DOWN=9 LEFT=9 RIGHT=7'
  143. 'BUTTONDATA' 'BUTTONTEXT="'B9'"' COLOUR5 'WIDTH=38 XPOS=21 YPOS=14 UP=8 DOWN=10 LEFT=10 RIGHT=8'
  144. 'BUTTONDATA' 'BUTTONTEXT="'B10'"' COLOUR3 'WIDTH=38 XPOS=21 YPOS=15 UP=9 DOWN=11 LEFT=11 RIGHT=9'
  145. 'BUTTONDATA' 'BUTTONTEXT="'B11'"' COLOUR3 'WIDTH=38 XPOS=21 YPOS=16 UP=10 DOWN=12 LEFT=12 RIGHT=10'
  146. 'BUTTONDATA' 'BUTTONTEXT="'B12'"' COLOUR3 'WIDTH=38 XPOS=21 YPOS=17 UP=11 DOWN=13 LEFT=13 RIGHT=11'
  147. 'BUTTONDATA' 'BUTTONTEXT="'B13'"' COLOUR7 'WIDTH=38 XPOS=21 YPOS=18 UP=12 DOWN=14 LEFT=14 RIGHT=12'
  148. 'BUTTONDATA' 'BUTTONTEXT="'B14'"' COLOUR7 'WIDTH=38 XPOS=21 YPOS=19 UP=13 DOWN=0 LEFT=0 RIGHT=13'
  149. 'BUTTONDATA' 'SAVE="tplates:button/main.bank"'
  150. 'BUTTONDATA' 'CLEAR'
  151.  
  152. /*
  153. ** Preferences selection menu:
  154. **/
  155.  
  156.  
  157. B0 = "  P   -   Edit your personal Information"
  158. B1 = "  S   -   Edit System specific Data"
  159. B2 = "  Q   -   Return to previous menu"
  160.  
  161. 'BUTTONDATA' 'CLEAR'
  162. 'BUTTONDATA' 'BUTTONTEXT="'B0'"' COLOUR7 'WIDTH=49 XPOS=16 YPOS=10 UP=2 DOWN=1 LEFT=1 RIGHT=2' /* 0 */
  163. 'BUTTONDATA' 'BUTTONTEXT="'B1'"' COLOUR7 'WIDTH=49 XPOS=16 YPOS=11 UP=0 DOWN=2 LEFT=2 RIGHT=0' /* 0 */
  164. 'BUTTONDATA' 'BUTTONTEXT="'B2'"' COLOUR7 'WIDTH=49 XPOS=16 YPOS=12 UP=1 DOWN=0 LEFT=0 RIGHT=1' /* 0 */
  165. 'BUTTONDATA' 'SAVE="tplates:button/prefs.bank"'
  166. 'BUTTONDATA' 'CLEAR'
  167.  
  168. /*
  169. ** Terminate!? menu
  170. **
  171. **/
  172.  
  173. B0 = " N   -  NO"
  174. B1 = " Y   -  YES"
  175.  
  176. 'BUTTONDATA' 'CLEAR'
  177. 'BUTTONDATA' 'BUTTONTEXT="'B0'"' COLOUR7 'WIDTH=13 XPOS=64 YPOS=11 UP=1 DOWN=1 LEFT=0 RIGHT=0'
  178. 'BUTTONDATA' 'BUTTONTEXT="'B1'"' COLOUR7 'WIDTH=13 XPOS=64 YPOS=12 UP=0 DOWN=0 LEFT=1 RIGHT=1'
  179. 'BUTTONDATA' 'SAVE="tplates:button/terminate.bank"'
  180. 'BUTTONDATA' 'CLEAR'
  181.  
  182.  
  183. /*
  184. ** Amiga menu
  185. **
  186. ** Setup the actual contents of the buttons text. All
  187. ** within the correct order.. working from button 0,..1,..5 etc.
  188. **/
  189.  
  190. B0 = " F   -   File Conferences"
  191. B1 = " M   -   Message Conferences"
  192. B2 = " C   -   Call For System Operator"
  193. B3 = " L   -   Leave Feedback to Operator"
  194. B4 = " P   -   Goto Edit Preferences Menu"
  195. B5 = " D   -   Entertainment Areas"
  196. B6 = " Q   -   Quit Back to Main Menu"
  197. B7 = " W   -   Waiting Mail?"
  198. B8 = " G   -   Terminate Connection"
  199. B9 = " B   -   QWK Off-Line Mail Bundler"
  200. B10 = " N   -   New File Scan"
  201.  
  202. 'BUTTONDATA' 'CLEAR'
  203. 'BUTTONDATA' 'BUTTONTEXT="'B0'"' COLOUR7 'WIDTH=37 XPOS=21 YPOS=6 UP=10 DOWN=1 LEFT=1 RIGHT=10'  /* 0 */
  204. 'BUTTONDATA' 'BUTTONTEXT="'B1'"' COLOUR7 'WIDTH=37 XPOS=21 YPOS=7 UP=0 DOWN=2 LEFT=2 RIGHT=0'    /* 1 */
  205. 'BUTTONDATA' 'BUTTONTEXT="'B2'"' COLOUR7 'WIDTH=37 XPOS=21 YPOS=8 UP=1 DOWN=3 LEFT=3 RIGHT=1'    /* 2 */
  206. 'BUTTONDATA' 'BUTTONTEXT="'B3'"' COLOUR7 'WIDTH=37 XPOS=21 YPOS=9 UP=2 DOWN=4 LEFT=4 RIGHT=2'    /* 3 */
  207. 'BUTTONDATA' 'BUTTONTEXT="'B4'"' COLOUR7 'WIDTH=37 XPOS=21 YPOS=10 UP=3 DOWN=5 LEFT=5 RIGHT=3'   /* 4 */
  208. 'BUTTONDATA' 'BUTTONTEXT="'B5'"' COLOUR7 'WIDTH=37 XPOS=21 YPOS=11 UP=4 DOWN=6 LEFT=6 RIGHT=4'   /* 5 */
  209. 'BUTTONDATA' 'BUTTONTEXT="'B6'"' COLOUR3 'WIDTH=37 XPOS=21 YPOS=12 UP=5 DOWN=7 LEFT=7 RIGHT=5'   /* 6 */
  210. 'BUTTONDATA' 'BUTTONTEXT="'B7'"' COLOUR2 'WIDTH=37 XPOS=21 YPOS=13 UP=6 DOWN=8 LEFT=8 RIGHT=6'   /* 7 */
  211. 'BUTTONDATA' 'BUTTONTEXT="'B8'"' COLOUR1 'WIDTH=37 XPOS=21 YPOS=14 UP=7 DOWN=9 LEFT=9 RIGHT=7'   /* 8 */
  212. 'BUTTONDATA' 'BUTTONTEXT="'B9'"' COLOUR7 'WIDTH=37 XPOS=21 YPOS=15 UP=8 DOWN=10 LEFT=10 RIGHT=8' /* 9 */
  213. 'BUTTONDATA' 'BUTTONTEXT="'B10'"' COLOUR7 'WIDTH=37 XPOS=21 YPOS=16 UP=9 DOWN=0 LEFT=0 RIGHT=9'  /* 10 */
  214. 'BUTTONDATA' 'SAVE="tplates:button/amiga.bank"'
  215. 'BUTTONDATA' 'CLEAR'
  216.  
  217. /*
  218. ** ApT menu
  219. **
  220. ** Setup the actual contents of the buttons text. All
  221. ** within the correct order.. working from button 0,..1,..5 etc.
  222. **/
  223.  
  224. B0 = " F   -   File Conferences"
  225. B1 = " M   -   Message Conferences"
  226. B2 = " C   -   Call For System Operator"
  227. B3 = " L   -   Leave Feedback to Operator"
  228. B4 = " Q   -   Quit Back to Main Menu"
  229. B5 = " W   -   Waiting Mail?"
  230. B6 = " G   -   Terminate Connection"
  231. B7 = " N   -   New File Scan"
  232.  
  233. 'BUTTONDATA' 'CLEAR'
  234. 'BUTTONDATA' 'BUTTONTEXT="'B0'"' COLOUR7 'WIDTH=37 XPOS=21 YPOS=6 UP=7 DOWN=1 LEFT=1 RIGHT=7' /* 0 */
  235. 'BUTTONDATA' 'BUTTONTEXT="'B1'"' COLOUR7 'WIDTH=37 XPOS=21 YPOS=7 UP=0 DOWN=2 LEFT=2 RIGHT=0' /* 0 */
  236. 'BUTTONDATA' 'BUTTONTEXT="'B2'"' COLOUR7 'WIDTH=37 XPOS=21 YPOS=8 UP=1 DOWN=3 LEFT=3 RIGHT=1' /* 0 */
  237. 'BUTTONDATA' 'BUTTONTEXT="'B3'"' COLOUR7 'WIDTH=37 XPOS=21 YPOS=9 UP=2 DOWN=4 LEFT=4 RIGHT=2' /* 0 */
  238. 'BUTTONDATA' 'BUTTONTEXT="'B4'"' COLOUR3 'WIDTH=37 XPOS=21 YPOS=10 UP=3 DOWN=5 LEFT=5 RIGHT=3' /* 0 */
  239. 'BUTTONDATA' 'BUTTONTEXT="'B5'"' COLOUR2 'WIDTH=37 XPOS=21 YPOS=11 UP=4 DOWN=6 LEFT=6 RIGHT=4' /* 0 */
  240. 'BUTTONDATA' 'BUTTONTEXT="'B6'"' COLOUR1 'WIDTH=37 XPOS=21 YPOS=12 UP=5 DOWN=7 LEFT=7 RIGHT=5' /* 0 */
  241. 'BUTTONDATA' 'BUTTONTEXT="'B7'"' COLOUR7 'WIDTH=37 XPOS=21 YPOS=13 UP=6 DOWN=0 LEFT=0 RIGHT=6' /* 0 */
  242. 'BUTTONDATA' 'SAVE="tplates:button/apt.bank"'
  243. 'BUTTONDATA' 'CLEAR'
  244.  
  245. /*
  246. ** IBM menu
  247. **
  248. ** Setup the actual contents of the buttons text. All
  249. ** within the correct order.. working from button 0,..1,..5 etc.
  250. **/
  251.  
  252. B0 = " F   -   File Conferences"
  253. B1 = " M   -   Message Conferences"
  254. B2 = " C   -   Call For System Operator"
  255. B3 = " L   -   Leave Feedback to Operator"
  256. B4 = " P   -   Goto Edit Preferences Menu"
  257. B5 = " D   -   Entertainment Areas"
  258. B6 = " Q   -   Quit Back to Main Menu"
  259. B7 = " W   -   Waiting Mail?"
  260. B8 = " G   -   Terminate Connection"
  261. B9 = " B   -   QWK Off-Line Mail Bundler"
  262. B10 = " N   -   New File Scan"
  263.  
  264. 'BUTTONDATA' 'CLEAR'
  265. 'BUTTONDATA' 'BUTTONTEXT="'B0'"' COLOUR7 'WIDTH=37 XPOS=21 YPOS=6 UP=10 DOWN=1 LEFT=1 RIGHT=10' /* 0 */
  266. 'BUTTONDATA' 'BUTTONTEXT="'B1'"' COLOUR7 'WIDTH=37 XPOS=21 YPOS=7 UP=0 DOWN=2 LEFT=2 RIGHT=0' /* 0 */
  267. 'BUTTONDATA' 'BUTTONTEXT="'B2'"' COLOUR7 'WIDTH=37 XPOS=21 YPOS=8 UP=1 DOWN=3 LEFT=3 RIGHT=1' /* 0 */
  268. 'BUTTONDATA' 'BUTTONTEXT="'B3'"' COLOUR7 'WIDTH=37 XPOS=21 YPOS=9 UP=2 DOWN=4 LEFT=4 RIGHT=2' /* 0 */
  269. 'BUTTONDATA' 'BUTTONTEXT="'B4'"' COLOUR7 'WIDTH=37 XPOS=21 YPOS=10 UP=3 DOWN=5 LEFT=5 RIGHT=3' /* 0 */
  270. 'BUTTONDATA' 'BUTTONTEXT="'B5'"' COLOUR7 'WIDTH=37 XPOS=21 YPOS=11 UP=4 DOWN=6 LEFT=6 RIGHT=4' /* 0 */
  271. 'BUTTONDATA' 'BUTTONTEXT="'B6'"' COLOUR3 'WIDTH=37 XPOS=21 YPOS=12 UP=5 DOWN=7 LEFT=7 RIGHT=5' /* 0 */
  272. 'BUTTONDATA' 'BUTTONTEXT="'B7'"' COLOUR2 'WIDTH=37 XPOS=21 YPOS=13 UP=6 DOWN=8 LEFT=8 RIGHT=6' /* 0 */
  273. 'BUTTONDATA' 'BUTTONTEXT="'B8'"' COLOUR1 'WIDTH=37 XPOS=21 YPOS=14 UP=7 DOWN=9 LEFT=9 RIGHT=7' /* 0 */
  274. 'BUTTONDATA' 'BUTTONTEXT="'B9'"' COLOUR7 'WIDTH=37 XPOS=21 YPOS=15 UP=8 DOWN=10 LEFT=10 RIGHT=8' /* 0 */
  275. 'BUTTONDATA' 'BUTTONTEXT="'B10'"' COLOUR7 'WIDTH=37 XPOS=21 YPOS=16 UP=9 DOWN=0 LEFT=0 RIGHT=9' /* 0 */
  276. 'BUTTONDATA' 'SAVE="tplates:button/ibm.bank"'
  277. 'BUTTONDATA' 'CLEAR'
  278.  
  279. /*
  280. ** GAME menu
  281. **
  282. ** Setup the actual contents of the buttons text. All
  283. ** within the correct order.. working from button 0,..1,..5 etc.
  284. **/
  285.  
  286. B0 = "0  -  Hack&Slash"
  287. B1 = "1  -  Space Emp' 1"
  288. B2 = "2  -  Space Emp' 2"
  289. B3 = "3  -  Blackmar's"
  290. B4 = "4  -  GLOBAL WAR!"
  291. B5 = "5  -  ParaWorld"
  292. B6 = "6  -  Knight-Realm"
  293. B7 = "7  -  Lotto"
  294. B8 = "8  -  AnsiWarriors"
  295. B9 = "9  -  What Animal?"
  296. B10 = "H  -  Chess"
  297. B11 = "M  -  Master Mind"
  298. B12 = "P  -  Solitaire"
  299. B13 = "T  -  TIS"
  300. B14 = "V  -  Knot!"
  301. B15 = "Z  -  Trivia"
  302. B16 = "X  -  DeepSpace!"
  303.  
  304. B17 = "C  -  Call the Sysop"
  305. B18 = "Q  -  Quit to Last Menu"
  306. B19 = "G  -  GoodBye Log-Off"
  307. B20 = "E  -  Database"
  308. B21 = "F  -  Fish Disk Viewer"
  309. B22 = "N  -  Neverending Story"
  310.  
  311. B23 = "A  -  Ballyhoo"
  312. B24 = "B  -  Suspect"
  313. B25 = "D  -  LGOP"
  314. B26 = "I  -  Infidel"
  315. B27 = "J  -  Zork1"
  316. B28 = "K  -  Zork2"
  317. B29 = "O  -  Zork3"
  318. B30 = "R  -  Planetfall"
  319. B31 = "S  -  HHGTTG"
  320. B32 = "W  -  Hollywood HJ"
  321. B33 = "Y  -  Wishbringer"
  322. B34 = "L  -  AMFV"
  323. B35 = "U  -  BBS Lister"
  324.  
  325.  
  326. 'BUTTONDATA' 'CLEAR'
  327. 'BUTTONDATA' 'BUTTONTEXT="'B0'"' COLOUR7 'WIDTH=18 XPOS=2 YPOS=2 UP=34 DOWN=1 LEFT=23 RIGHT=17' /* 0 */
  328. 'BUTTONDATA' 'BUTTONTEXT="'B1'"' COLOUR7 'WIDTH=18 XPOS=2 YPOS=3 UP=0 DOWN=2 LEFT=22 RIGHT=17' /* 0 */
  329. 'BUTTONDATA' 'BUTTONTEXT="'B2'"' COLOUR7 'WIDTH=18 XPOS=2 YPOS=4 UP=1 DOWN=3 LEFT=22 RIGHT=17' /* 0 */
  330. 'BUTTONDATA' 'BUTTONTEXT="'B3'"' COLOUR7 'WIDTH=18 XPOS=2 YPOS=5 UP=2 DOWN=4 LEFT=22 RIGHT=17' /* 0 */
  331. 'BUTTONDATA' 'BUTTONTEXT="'B4'"' COLOUR7 'WIDTH=18 XPOS=2 YPOS=6 UP=3 DOWN=5 LEFT=22 RIGHT=17' /* 0 */
  332. 'BUTTONDATA' 'BUTTONTEXT="'B5'"' COLOUR7 'WIDTH=18 XPOS=2 YPOS=7 UP=4 DOWN=6 LEFT=22 RIGHT=17' /* 0 */
  333. 'BUTTONDATA' 'BUTTONTEXT="'B6'"' COLOUR7 'WIDTH=18 XPOS=2 YPOS=8 UP=5 DOWN=7 LEFT=22 RIGHT=17' /* 0 */
  334. 'BUTTONDATA' 'BUTTONTEXT="'B7'"' COLOUR7 'WIDTH=18 XPOS=2 YPOS=9 UP=6 DOWN=8 LEFT=22 RIGHT=17' /* 0 */
  335. 'BUTTONDATA' 'BUTTONTEXT="'B8'"' COLOUR7 'WIDTH=18 XPOS=2 YPOS=10 UP=7 DOWN=9 LEFT=22 RIGHT=17' /* 0 */
  336. 'BUTTONDATA' 'BUTTONTEXT="'B9'"' COLOUR7 'WIDTH=18 XPOS=2 YPOS=11 UP=8 DOWN=10 LEFT=22 RIGHT=17' /* 0 */
  337. 'BUTTONDATA' 'BUTTONTEXT="'B10'"' COLOUR7 'WIDTH=18 XPOS=2 YPOS=12 UP=9 DOWN=11 LEFT=22 RIGHT=17' /* 0 */
  338. 'BUTTONDATA' 'BUTTONTEXT="'B11'"' COLOUR7 'WIDTH=18 XPOS=2 YPOS=13 UP=10 DOWN=12 LEFT=22 RIGHT=17' /* 0 */
  339. 'BUTTONDATA' 'BUTTONTEXT="'B12'"' COLOUR7 'WIDTH=18 XPOS=2 YPOS=14 UP=11 DOWN=13 LEFT=22 RIGHT=17' /* 0 */
  340. 'BUTTONDATA' 'BUTTONTEXT="'B13'"' COLOUR7 'WIDTH=18 XPOS=2 YPOS=15 UP=12 DOWN=14 LEFT=22 RIGHT=17' /* 0 */
  341. 'BUTTONDATA' 'BUTTONTEXT="'B14'"' COLOUR7 'WIDTH=18 XPOS=2 YPOS=16 UP=13 DOWN=15 LEFT=22 RIGHT=17' /* 0 */
  342. 'BUTTONDATA' 'BUTTONTEXT="'B15'"' COLOUR7 'WIDTH=18 XPOS=2 YPOS=17 UP=14 DOWN=16 LEFT=22 RIGHT=17' /* 0 */
  343. 'BUTTONDATA' 'BUTTONTEXT="'B16'"' COLOUR7 'WIDTH=18 XPOS=2 YPOS=18 UP=15 DOWN=17 LEFT=22 RIGHT=17' /* 0 */
  344.  
  345. 'BUTTONDATA' 'BUTTONTEXT="'B17'"' COLOUR3 'WIDTH=23 XPOS=28 YPOS=7 UP=16 DOWN=18 LEFT=0 RIGHT=23' /* 0 */
  346. 'BUTTONDATA' 'BUTTONTEXT="'B18'"' COLOUR2 'WIDTH=23 XPOS=28 YPOS=8 UP=17 DOWN=19 LEFT=0 RIGHT=23' /* 0 */
  347. 'BUTTONDATA' 'BUTTONTEXT="'B19'"' COLOUR1 'WIDTH=23 XPOS=28 YPOS=9 UP=18 DOWN=20 LEFT=0 RIGHT=23' /* 0 */
  348. 'BUTTONDATA' 'BUTTONTEXT="'B20'"' COLOUR7 'WIDTH=23 XPOS=28 YPOS=10 UP=19 DOWN=21 LEFT=0 RIGHT=23' /* 0 */
  349. 'BUTTONDATA' 'BUTTONTEXT="'B21'"' COLOUR7 'WIDTH=23 XPOS=28 YPOS=11 UP=20 DOWN=22 LEFT=0 RIGHT=23' /* 0 */
  350. 'BUTTONDATA' 'BUTTONTEXT="'B22'"' COLOUR7 'WIDTH=23 XPOS=28 YPOS=12 UP=21 DOWN=35 LEFT=0 RIGHT=23' /* 0 */
  351.  
  352. 'BUTTONDATA' 'BUTTONTEXT="'B23'"' COLOUR7 'WIDTH=20 XPOS=58 YPOS=2 UP=22 DOWN=24 LEFT=17 RIGHT=0' /* 0 */
  353. 'BUTTONDATA' 'BUTTONTEXT="'B24'"' COLOUR7 'WIDTH=20 XPOS=58 YPOS=3 UP=23 DOWN=25 LEFT=17 RIGHT=0' /* 0 */
  354. 'BUTTONDATA' 'BUTTONTEXT="'B25'"' COLOUR7 'WIDTH=20 XPOS=58 YPOS=4 UP=24 DOWN=26 LEFT=17 RIGHT=0' /* 0 */
  355. 'BUTTONDATA' 'BUTTONTEXT="'B26'"' COLOUR7 'WIDTH=20 XPOS=58 YPOS=5 UP=25 DOWN=27 LEFT=17 RIGHT=0' /* 0 */
  356. 'BUTTONDATA' 'BUTTONTEXT="'B27'"' COLOUR7 'WIDTH=20 XPOS=58 YPOS=6 UP=26 DOWN=28 LEFT=17 RIGHT=0' /* 0 */
  357. 'BUTTONDATA' 'BUTTONTEXT="'B28'"' COLOUR7 'WIDTH=20 XPOS=58 YPOS=7 UP=27 DOWN=29 LEFT=17 RIGHT=0' /* 0 */
  358. 'BUTTONDATA' 'BUTTONTEXT="'B29'"' COLOUR7 'WIDTH=20 XPOS=58 YPOS=8 UP=28 DOWN=30 LEFT=17 RIGHT=0' /* 0 */
  359. 'BUTTONDATA' 'BUTTONTEXT="'B30'"' COLOUR7 'WIDTH=20 XPOS=58 YPOS=9 UP=29 DOWN=31 LEFT=17 RIGHT=0' /* 0 */
  360. 'BUTTONDATA' 'BUTTONTEXT="'B31'"' COLOUR7 'WIDTH=20 XPOS=58 YPOS=10 UP=30 DOWN=32 LEFT=17 RIGHT=0' /* 0 */
  361. 'BUTTONDATA' 'BUTTONTEXT="'B32'"' COLOUR7 'WIDTH=20 XPOS=58 YPOS=11 UP=31 DOWN=33 LEFT=17 RIGHT=0' /* 0 */
  362. 'BUTTONDATA' 'BUTTONTEXT="'B33'"' COLOUR7 'WIDTH=20 XPOS=58 YPOS=12 UP=32 DOWN=34 LEFT=17 RIGHT=0' /* 0 */
  363. 'BUTTONDATA' 'BUTTONTEXT="'B34'"' COLOUR7 'WIDTH=20 XPOS=58 YPOS=13 UP=33 DOWN=0 LEFT=17 RIGHT=0' /* 0 */
  364. 'BUTTONDATA' 'BUTTONTEXT="'B35'"' COLOUR7 'WIDTH=23 XPOS=28 YPOS=13 UP=22 DOWN=23 LEFT=0 RIGHT=23' /* 35 */
  365.  
  366. 'BUTTONDATA' 'SAVE="tplates:button/GAME.bank"'
  367. 'BUTTONDATA' 'CLEAR'
  368.  
  369. /*
  370. ** Picture Menu
  371. **
  372. ** Setup the actual contents of the buttons text. All
  373. ** within the correct order.. working from button 0,..1,..5 etc.
  374. **/
  375.  
  376. B0 = " F   -   File Conferences"
  377. B1 = " M   -   Message Conferences"
  378. B2 = " C   -   Call For System Operator"
  379. B3 = " L   -   Leave Feedback to Operator"
  380. B4 = " P   -   Goto Edit Preferences Menu"
  381. B5 = " D   -   Entertainment Areas"
  382. B6 = " Q   -   Quit Back to Main Menu"
  383. B7 = " W   -   Waiting Mail?"
  384. B8 = " G   -   Terminate Connection"
  385. B9 = " N   -   New File Scan"
  386.  
  387. 'BUTTONDATA' 'CLEAR'
  388. 'BUTTONDATA' 'BUTTONTEXT="'B0'"' COLOUR7 'WIDTH=37 XPOS=21 YPOS=6 UP=9 DOWN=1 LEFT=1 RIGHT=9'
  389. 'BUTTONDATA' 'BUTTONTEXT="'B1'"' COLOUR7 'WIDTH=37 XPOS=21 YPOS=7 UP=0 DOWN=2 LEFT=2 RIGHT=0'
  390. 'BUTTONDATA' 'BUTTONTEXT="'B2'"' COLOUR7 'WIDTH=37 XPOS=21 YPOS=8 UP=1 DOWN=3 LEFT=3 RIGHT=1'
  391. 'BUTTONDATA' 'BUTTONTEXT="'B3'"' COLOUR7 'WIDTH=37 XPOS=21 YPOS=9 UP=2 DOWN=4 LEFT=4 RIGHT=2'
  392. 'BUTTONDATA' 'BUTTONTEXT="'B4'"' COLOUR7 'WIDTH=37 XPOS=21 YPOS=10 UP=3 DOWN=5 LEFT=5 RIGHT=3'
  393. 'BUTTONDATA' 'BUTTONTEXT="'B5'"' COLOUR7 'WIDTH=37 XPOS=21 YPOS=11 UP=4 DOWN=6 LEFT=6 RIGHT=4'
  394. 'BUTTONDATA' 'BUTTONTEXT="'B6'"' COLOUR3 'WIDTH=37 XPOS=21 YPOS=12 UP=5 DOWN=7 LEFT=7 RIGHT=5'
  395. 'BUTTONDATA' 'BUTTONTEXT="'B7'"' COLOUR2 'WIDTH=37 XPOS=21 YPOS=13 UP=6 DOWN=8 LEFT=8 RIGHT=6'
  396. 'BUTTONDATA' 'BUTTONTEXT="'B8'"' COLOUR1 'WIDTH=37 XPOS=21 YPOS=14 UP=7 DOWN=9 LEFT=9 RIGHT=7'
  397. 'BUTTONDATA' 'BUTTONTEXT="'B9'"' COLOUR7 'WIDTH=37 XPOS=21 YPOS=15 UP=8 DOWN=0 LEFT=0 RIGHT=8'
  398. 'BUTTONDATA' 'SAVE="tplates:button/PICTURE.bank"'
  399. 'BUTTONDATA' 'CLEAR'
  400.  
  401.  
  402. say CR "Finished...."
  403.  
  404. EXIT
  405.  
  406. /*##########################################################################*/
  407.  
  408.